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X /to 

As a first step toward automatic STADAN station scheduling, a com- 
puter program is developed to: (1) relieve the ST ADAN station scheduler 
from sifting through volumes of predicted satellite operations (i.e., 
Operational Predictions for Satellites) data to obtain the data necessary 
for station scheduling; (2) save the STADAN station scheduler the time, 
labor, and perhaps human errors of transferring the scheduling data to 
a station scheduling sheet or chart; and (3) place the scheduling data in 
a format more suitable for scheduling. The computer program is de- 
scribed in sufficient detail to permit its operation by anyone with a 
minimal understanding of general computer programming. 
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A COMPUTER PROGRAM TO IMPROVE 
STADAN STATION SCHEDULING* 

by 

Walter D. Davis 

Goddard Space Flight Center 


INTRODUCTION 

Scheduling of STADAN stations has become increasingly more difficult because of the volume 
and complexity of predicted satellite data which the scheduler must use. A computer program has 
been developed that takes the data calculated by the revised Goddard Space Flight Center (GSFC) 
orbital program and: (1) edits the predicted satellite operations data, extracting only pertinent 
scheduling data; (2) generates or calculates new predicted satellite operations data when the time 
interval (during a station passt) of any two successive predicted satellite operations data points 
equals or exceeds two minutes; and (3) places the results of (1) and (2) in a suitable format for 
station scheduling. (It should be noted that all satellite and STADAN station conflicts, at any arbi- 
trary time, will be immediately apparent on ’’first sight" inspection). 

During the initiation of the study, the plans were made to develop, in addition to the afore- 
mentioned computer program (Phase I), a second computer program (Phase II) which would resolve 
all scheduling conflicts and make all station scheduling decisions. Heretofore, the Phase H oper- 
ation has been manual. After Phase I is put into operation and proven, an effort can be made to 
develop a Phase II-type computer program. 

The Phase I computer program is written mostly in the FORTRAN IV language. However, 
several control cards of the IBM 7090/7094 IBSYS Operating System Generalized Sorting System 
are utilized along with several MAP routines for multireel output; the END OF FILE (EOF) mark 
is written automatically when the END OF TAPE (EOT) reflective spot is sensed during writing. 
Reel switching occurs after the EOF is written. The listed "deck names", FRWB, FRWD, FSLI, 
FXEM, NOSYS, and GOSYS, within the Phase I computer program (Appendix A) represent binary 
program decks constituting modified IBM FORTRAN IV subroutines (written in MAP). These 
binary decks are utilized to enable the IBM 7094 to read the next file, if desired by the programmer, 
after encountering the EOF mark on an input tape and to use the record, as read the 100th time, if 
the "permanent read redundancy" error condition is encountered. 


*STADAN is the denotation of Space Tracking And Data Acquisition Network. Station scheduling is defined to be the allocation of the 
service time of a STADAN station to the satellites which pass through the station's field of tracking and data acquisition. 

^Station pass is defined to be a passing of the satellite through the station's field of tracking and data acquisition - 
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The FORTRAN statements, SORT control cards or instructions, MAP routines, and the 
aforementioned deck names of the Phase I computer program are given in Appendix A. 

SUBPROGRAMS OF PHASE I 

The computer program of Phase I consists of three subprograms: 

Subprogram 1 edits the predicted satellite operations data, extracting only pertinent scheduling 
data; generates or calculates new predicted satellite operations data when the time interval (during 
a station pass) of any two successive predicted satellite operations data points equals or exceeds 
two minutes; and places the results in a format suitable for sorting internally on the IBM 7090/7094. 

Subprogram 2 sorts the results of subprogram 1 on the IBM 7090/7094 with respect to date, 
time, station, and satellite. 

Subprogram 3 places the results of subprogram 2 in the final format as illustrated in Figure 1 
(see page 13). 

Subprogram 1 

Input Data Cards 

For a run of subprogram 1, (n + 1) + c data cards are input for n satellites of input data, 
where c is the total number of continuation cards. That is, excluding the continuation cards, one 
data card is input for each satellite of input data plus a data card which contains the total number 
of satellites, n, whose data are input into the computer for the run of subprogram 1. 

The parameters on the input data cards of subprogram 1 are: 

TNSATL = total number of satellites whose data are input into the computer for a run of sub- 
program 1. 

Z = an alphabetic or non-numerical character assigned to the satellite, whose data are 
input into the computer for a run of subprogram 1, to indicate, in the final output, 
that the satellite is in the field of tracking and data acquisition of a STADAN station 
but is not in the sunlight; and to identify the satellite and its column of data, in the 
final output, when TNSATL does not exceed the total number of alphabetic and "usa- 
ble" special characters. (If TNSATL exceeds the total number of alphabetic (26) 
and usable special characters, it is suggested that numbers or numerical characters, 
assigned to the satellites by subprogram 1, be used to identify the satellites and 
their columns of data in the final output with Z = A for all satellites whose data are 
input into the computer for the run of subprogram 1. (These numerical characters, 
obtainable from the on-line print-out of subprogram 1, would be inserted with the 
input data of subprogram 3 as the values of the parameter (NOT(I).) 
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'JPSI 


= An assigned elevation angle such that the subprogram 1 input data of any pass of the 
satellite through the field of tracking and data acquisition of any STADAN station 
will be deleted if the maximum elevation angle of the satellite during the pass does 
not equal or exceed it. (With a minor modification in the subprogram 1 computer 
program, JPSI can be varied for each STADAN station which is scheduled to track 
and/or acquire data from the satellite.) 

KEY = Number (0, 1, or 2) which enables the program operator to "inform" the computer 
of the number of files and their arrangement on the subprogram 1 input reel(s) of 
predicted operations data for a satellite. 

KEY = 0 => every input reel of predicted operations data for the satellite has 
only one file. 

KEY = 1 => first input reel of predicted operations data for the satellite has only 
two files while each of the other input reels, if any, has only one. 

KEY = 2 => a second input reel of predicted operations data for the satellite has 
only two files while each of the other input reels including the first 
(i.e., the reel which contains identifications and World Map data) has 
only one. (Due to the format revision of the predicted satellite 
operations data and the subsequent modification of subprogram 1, it 
is not necessary to use "KEY = 2". When, due to identification and 
World Map data, two files appear on any input reel except the first, 
eliminate and don’t input the reel(s) of identification and World Map 
data which precede the "two file reel." Then, treat the two file reel 
as the first input reel of predicted operations data for the satellite, 
and set K = 1. It is assumed, based on past operations, that the 
identification and World Map data will precede, on the input reels 
of predicted operations data for the satellite, the predicted oper- 
ations data.) 

NOS = total number of STADAN stations whose data are to be deleted during the run of 
subprogram 1. 

NOSTAT = six character name of STADAN station whose data are to be deleted during the run 
of subprogram 1. (The order of the names of the NOSTAT stations on the input data 
card(s) is not important.) 

NOSTAT(L) = NOSTAT in the L th position of the linear array of NOSTAT(S) on the input data card 
(where L = 1, 2, ..., NOS). 

It may be worthwhile to note that, in order to delete all the predicted satellite operations 
data of a satellite, the program operator merely does not input the data of that satellite. The 
above statement assumes, based on past operations, that the predicted satellite operations data 
of two or more satellites are not contained on the same reel. 
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Memory Allocations 


One hundred core memory locations have been allocated for the STADAN stations (see the 
parameter JSTAT in the Dimension statement of subprogram 1, Appendix A). If necessary, the 
program operator may allocate additional (up to or beyond several thousand on the IBM 7094) 
core memory locations for the STADAN stations. The core memory allocations of the parameter 
NOSTAT may be adjusted accordingly. Due to one or two adjustment "gimmicks" in the computer 
program, it will never be necessary to allocate additional core memory locations for any of the 
other parameters in the DIMENSION statement. In fact, the core memory allocations of JTIM, 
MINS, JEL, JCHAR, JDAY, JDATE, NTIM, NEL, NCHAR, NDAY, and NDATE, respectively, may 
be decreased if several FORTRAN statements are adjusted accordingly. (The core memory 
allocations of each of the aforementioned parameters may be decreased to, but not less than, two 
locations.) If, however, within the predicted satellite operations data, there exists a large number 
of station passes such that the number of minutes in the duration of each station pass is greater 
than the core memory allocations of the parameters, subprogram 1 would cause the computer 
to increase its "looping" and, hence, its running time. 

Subprogram 2 

Information on the control cards of this subprogram may be obtained from any up-to-date 
manual on the IBM 7090/7094 IBSYS Operating System Generalized Sorting System. For normal 
non-stop runs, the subprogram 2 computer program, as shown in Appendix A, may remain un- 
changed with the possible exception of the "REEL/n" field of the INPUT FILE control card. The 
number of reels of data input into the computer for a run of subprogram 2 is denoted by n in the 
"REELS/n" field. It is necessary to update the value of n for each run of subprogram 2. For 
example, suppose that the number of reels of subprogram 2 input data is 3 for a particular run, 
then n is 3 and the INPUT FILE control card can be written as 

FILE, INPUT/1, REELS/3, MODE/D, DENSITY/H, BLOCKSIZE/5. 

The "REELS/n" field may be omitted for a one-reel file, i.e., the number of reels of subprogram 
2 input data is one. 

Subprogram 3 

Input Data Cards 

For a run of subprogram 3, (n + m + 3) + c data cards, where c is the total number of con- 
tinuation cards, are input for n satellites and m stations of input data. The parameters on these 
data cards are: 

DOTS 2 = two special characters which are used to separate, on the final print-out sheet, the 

data of a STADAN station from the data of the STADAN station(s) adjacent to it. (The 
character followed by the blank character were used in the simulated runs and 
Figure 1.) 
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DASH 

TNSTAT 

TNSATL 

REELS 

KSTAT 

JK 


NSATL 

NUM 


two special characters used to indicate that the satellite or spacecraft 
is not in the field of tracking and data acquisition of the STADAN station. 
(Two blank characters were used in the simulated runs and Figure 1.) 

total number of distinct stations whose names are printed on-line during 
the computer run of subprogram 1. 

same definition as TNSATL of subprogram 1. (TNSATL of subprograms 
is also equivalent to the total number of distinct satellites whose identi- 
fications are printed on-line during the computer run of subprogram 1, 
unless the program operator inputs the data of a satellite whose data are 
subsequently deleted because every STADAN station, through whose field 
of tracking and data acquisition the satellite is predicted to pass, is a 
NOSTAT station. (See the definition of NOSTAT, page 3) ) 

total number of reels of data which are output during the computer run 
of subprogram 2. 

six (or less) character name of STADAN station. (BPOINT is an 
example.) 

station count or number assigned to KSTAT by the computer during the 
run of subprogram 1. (All distinct KSTATs or names of STADAN stations 
whose data are input into the computer during a run of subprogram 1 are 
assigned numbers by the computer in ascending order, beginning with 
number 1, as they are input into the computer in a non-NOSTAT status. 

(If KSTAT is a NOSTAT station for a satellite, it is neither assigned 
a number nor printed on-line during that computer "satellite loop." 
However, KSTAT could be assigned a number and printed on-line 
during succeeding computer satellite loops.).) 

total number of distinct satellites whose identifications are printed on- 
line, during the computer run of subprogram 1, within the same record 
(the same line) as KSTAT. (NSATL is also equivalent to the total number 
of distinct satellites which pass through the field of tracking and data 
acquisition of the KSTAT station and whose predicted data are input into 
the computer for the run of subprogram 1, unless the KSTAT station 
is a NOSTAT station to one or more of the distinct satellites.) 

satellite count or number assigned to the satellite by the computer dur- 
ing the run of subprogram 1. (All distinct satellites whose predicted data 
are input into the computer during a run of subprogram 1 are assigned 
numbers by the computer in ascending order, beginning with the number 
1, as their predicted data are input into the computer. If every STADAN 
station, through whose field of tracking and data acquisition the satellite 


5 



NUM (JK, I) 
(I = 1, 2, NSATL) 


NOT(I) 


FDATE 

FTIME 

LDATE 

LTIME 

Z 

IDENT 

JSATL 


NOS 


JSDAT 

JSTIM 


is predicted to pass, is a NOSTAT station, the NUM of the satellite is 
not printed on-line, even though a number is assigned to that satellite by 
the computer during the run of subprogram 1.) 

NUM (satellite count) of the satellite whose identification number is 
printed on-line, during the computer run of subprogram 1, within the 
same record as the KSTAT station whose station count is JK and which 
has the I th smallest NUM of all NUM(JK,I)I = 1, 2, . . . NSATL. 

Z of the satellite, whose NUM or satellite count is NUM(JK, I), followed 
by the blank character. (NOT(I) is also printed on-line, during the com- 
puter run of subprogram 1, within the same record as the identification 
of the above satellite and, hence, NUM(JK, I). ) 

the smallest (or earliest) Start-Date of all the Start-Dates of the satel- 
lites whose predicted operations data are input into the computer for the 
rim of subprogram 1. 

the smallest (or earliest) Start- Time of all the Start- Times of the satel- 
lites whose predicted operations data are input into the computer for the 
run of subprogram 1. 

the largest (or oldest) Stop-Date of all the Stop-Dates of the satellites 
whose predicted operations data are input into the computer for the 
run of subprogram 1. 

the largest (or oldest) Stop-Time of all the Stop-Times of the satel- 
lites whose predicted operations data are input into the computer for 
the run of subprogram 1. 

Z of subprogram 1. 

identification number of the satellite. (The identification number con- 
sists presently of five numerical characters.) 

partial or full name of the satellite. (JSATL = partial name of the satel- 
lite if the name of the satellite consists of seven or more characters. 

For example, if EXPLORER is the name of the satellite, JSATL = 
EXPLOR.) 

partial name of the satellite if the name of the satellite consists of seven 
or more characters. Using the example from above, if EXPLORER is 
the name of the satellite, then NOS = ER followed by two blank characters. 

Start- Date of the satellite. 

Start- Time of the satellite. 
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JXDAT = Stop-Date of the satellite. 


JXTIM = Stop-Time of the satellite. 

JPSI = JPSI of subprogram 1. (In the format, exterior location 74, of subpro- 
gram 3 in Appendix A, space has been alloted to enable the program 
operator to insert a "decimal" character within the value of JPSI of sub- 
program 1.) 

On the second input data card of subprogram 3, the values of the parameters TNSTAT, 

TNSATL, and REELS may be predetermined before the computer runs. The values of the param- 
eters TNSTAT and TNSATL can also be easily determined from the subprogram 1 on-line print- 
out. However, as we indicated above, the value of TNSATL input into the computer for the run of 
subprogram 1 is different from the value of TNSATL determined from the subprogram 1 on-line 
print-out if the program operator inputs the data of a satellite subsequently deleted because every 
STADAN station through whose field of tracking and data acquisition the satellite is predicted to 
pass is a NOSTAT station. In this event, either value of TNSATL may be used (for the subpro- 
gram 3 input) since the predicted operational data of that satellite will not be processed or even 
considered during the computer run. (If the subprogram 1 input value of TNSATL is used, the set 
of input data cards whose parameters are Z, IDENT, JSATL, NOS, JSDAT, JSTIM, JXDAT, JXTIM, 
and JPSI should contain an input data card on every satellite whose predicted operational data are 
input for the computer run of subprogram 1. If the subprogram 1 on-line print-out value of 
TNSATL is used, the set of input data cards should contain an input data card on every satellite 
except the satellites whose predicted operational data are deleted.) In order to eliminate any 
possible variation of the value of TNSATL during the computer runs of subprograms 1, 2, and 3, 
the program operator should pre- check the station listing of each satellite, whose predicted 
operational data are input for the computer "run" of subprogram 1, and not input the data of any 
satellite whose predicted operational data would be deleted. 

On the set of input data cards whose parameters are JK, KSTAT, NSATL, NUM(JK, I), and 
NOT (I), I = 1, 2, ..., NSATL, the values of the aforementioned parameters should be obtained 
and determined from the subprogram 1 on-line print-out since the relationship of the values of 
JK, KSTAT, NUM(JK, I) and NOT®, I = 1, 2, ..., NSATL, on each member (input data card) of 
the aforementioned set depends on the order in which the predicted operational data of the satel- 
lites are input into the computer for a run of subprogram 1. 

Records of data consisting of the values of JK, KSTAT, NUM(JK, I), NOT(I), and IDENT, for 
some I, I = 1, 2, ..., NSATL, are printed on-line by the computer during the run of subprogram 
1. The following is an example of an on-line print-out of a subprogram 1 computer run. 

1 A 62681 

1 A 62681 

2 B 72798 
2 B 72798 


1 BPOINT 

2 FTMYRS 
1 BPOINT 

3 JOBURG 
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2 FTMYRS 

3 JOBURG 


3 C 92671 

4 D 42013 


From the example above, it is easy to see that TNSTAT = 3 and TNSATL = 4. The set of 
input data cards whose parameters are JK, KSTAT, NSATL, NUM(JK, I), and NOT(I), I = 1,2,..., 
NSATL, consist of three members. 

First Input Card: JK = 1; KSTAT = BPOINT; NSATL = 2; NUM(1, 1) = 1; 

NOT(l) = A; NUM(1, 2,) = 2; and NOT(2) = B. 

Second Input Card: JK = 2; KSTAT = FTMYRS; NSATL = 2; NUM(2, 1) = 1; 

NOT(l) = A; NUM(2, 2) = 3; and NOT(2) = C. 

Third Input Card: JK = 3; KSTAT = JOBURG; NSATL = 2; NUM(3, 1) = 2; 

NOT(l) = B; NUM(3, 2) = 4; and NOT(2) = D. 

For a more automatic and perhaps faster operation from subprogram 1 through subprogram 
3, subprogram 1 may be modified so that the array of input data whose parameters are TNSTAT, 
TNSATL, JK, KSTAT, NSATL, NUM(JK, I), and NOT(I), I = 1, 2, ..., NSATL, are either card 
punched on-line by the computer or written on a magnetic tape separate from the other output data 
tapes. (The operation of punching cards on-line should be avoided on T&DS' IBM 7094 computers 
at GSFC.) The on-line punched cards or magnetic tape are/is input into the computer later for 
the run of subprogram 3. The subprogram 1 on-line print- out would no longer be vital to the 
operation of subprogram 3 . 

Memory Allocations 

As in subprogram 1, one hundred core memory locations have been allocated for the STADAN 
stations or, more specifically, for the values (names of the STADAN stations) of the parameter 
JSTAT. The core memory allocations for the parameters JSTAT and MSATL are and should 
always be the same. (See the DIMENSION statement of subprogram 3.) The core memory allo- 
cations for each of the parameters NUM, NOT, MOT, NSU, and JEL were allocated as a function 
of ten physical tape units (tape drives) for output and/or 150 character-wide print-out paper or 
sheets for the final results. 

Let x be the number of core memory locations which are allocated for the names of the 
STADAN stations; y be the maximum number of tape drives, attached to the computer, which can 
be utilized for output during the run of subprogram 3; and Z be the total number of characters 
which can be written width-wise across the print-out paper which will be utilized for the final 
results. Then, the DIMENSION statement of subprogram 3 can be formulated, using FORTRAN 
language notations, as 

DIMENSION NUM ^x, , M0T^y*^j^) , JSTAT (x), MSATL (x), 

NSU (y), JEL 
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•Subprogram 3, Appendix A, is written to print the final results on 132 or more character-wide 
print-out paper. However, if the additional width on the "greater than 132" character-wide print- 
out paper is to be utilized, two FORTRAN statements must be adjusted according to the increase. 

Format Updating 

In Figure 1, the number of satellites serviced by a STADAN station is the same for all the 
stations. However, this is not always the case because the number of satellites serviced by two 
or more distinct STADAN stations may vary. Hence, in order to output the scheduling data in 
the final format without wasting spaces on the print-out sheet between the data of two stations, it 
is necessary to update the output formats (exterior statement numbers 98, 99, 100, 101, 102, 103, 
104, 105, 106, and 107) of subprogram 3. 

The output formats of subprogram 3 are generalized and formulated in Appendix B 
where, 

MSATL(I), I = 1,2,..., NSU(l), NSU(l) + 1,..., NSU(10), is the number of satellites 

serviced by the STADAN station whose station count (JK) is I, 

NSU(l) is the number of STADAN stations whose data are output on logical unit A3, 

NSU(2) is the number of STADAN stations whose data are output on logical unit B5, and 


NSU(10) is the number of STADAN stations whose data are output on logical unit A8. 

If MSATL(I), I = 1,2,..., NSU(10), is 2, it is suggested that the name, KSTAT, of the STADAN 
station, whose station count is I, be input on the input data cards of subprogram 3 as a four- 
character name instead of a six-character name followed by two blank characters. Otherwise, 
the six- character names of at least two STADAN stations will be written together in the heading 
of the final print-out with no space between them. 

If MSATL(I), I = 1,2,..., NSU(10), is 1, the formulated formats of Appendix B do not hold true. 
In order to rectify this, it is suggested that the name, KSTAT, of the STADAN station, whose 
station count is I, be input on the input data cards of subprogram 3 as a two character name fol- 
lowed by four blank characters; the A6 (of the aforementioned formats), which precede the ex- 
pression which contains MSATL(I), be changed to A2; and set (2* MSATL(I) - 4), the expression 
which contains MSATL(I), equal to 2. 

Elimination of Computer Hang-Up and Unnecessary Dumps 

If a logical tape unit referenced in subprogram 3 is not used during a run of subprogram 3, 
the 7094 computer system of T&DS at GSFC will still select and unload that unit after the run. 
This may often result in a computer hang-up and an unnecessary dump of core storage. To avoid 
this, appropriate $NAME card(s) should be inserted into the subprogram 3 deck after the $IBJOB 
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card, along with the proper instruction on the instruction card. For example, in a short simulated 
run of subprogram 3, only logical units A5 and A3 were utilized during the computer run. In 
order to stop the computer from selecting and attempting to unload logical units A6, B5, B6, Cl, 
C2, A7, B7, B8, B9, and A8 (all of subprogram 3), nine $NAME cards were inserted into the sub- 
program 3 deck after the $IBJOB card in the form 


COLUMN 


$NAME 


16 

l UNI . = .UNI 9. 


where I = 06, 15, 16, 21, 22, 07, 17, 18, 08. Then an output reel for logical unit B9 (.UN19.) was 
requested on the instruction card. 

The MAP routine for multireel output on a particular logical tape unit should be inserted 
into the subprogram 3 deck for a computer run if and only if that logical unit will be utilized 
during that run (or all MAP routines for multireel output on the logical tape units which will not 
be utilized during a computer run should be removed from the subprogram 3 computer program 
of Appendix A for that run). If a MAP routine for multireel output on a logical tape unit is 
inserted into the subprogram 3 deck for a computer run, the computer will select and attempt to 
unload the logical tape unit after that run. 


Output 

If the data at some time t, as illustrated in Figure 1, exceed 132 characters, two or more 
physical tape units (tape drives) are used for output during the run of subprogram 3. If the data 
at some time t, as illustrated in Figure 1, exceed 1320 characters (132 characters times 10 tape 
drives), or if more than ten tape drives are needed for output, the computer will stop its execution 
of subprograms after printing an "informative" message on-line and return control to the Basic 
Monitor. (If ten tape drives are used for output during the computer run of subprogram 3, logical tape 
unit A2 (SYSIN1, the system input tape unit for the T&DS IBM 7094 computers at GSFC) is elimi- 
nated by subprogram 3, and the computer "hangs-up” after the subprogram 3 computer run.) 

The output tapes of subprogram 3 are printed off-line, by the IBM 1401 computer, on 132 
character- wide paper or sheets. The print- out sheets of the output tape(s) of each tape drive used 
for output during the subprogram 3 computer run are decollated and then bound into a book. Within 
each book of scheduling data, there exists no unused character space between the data of two 
adjacent STADAN stations even though the number of satellites serviced by one of the stations is 
not the same as the number of satellites serviced by the other. However, an unused character 
space or spaces may exist at the end, width-wise, of each page or sheet of a book of scheduling 
data, since all the scheduling data of each STADAN station are contained within one book of 
scheduling data. (Subprogram 3 can be modified or revised so that unused character spaces can- 
not exist when the station count (JK) of each STADAN station within the book is less than the 
station count of any STADAN station within another book of the same run. The result would be 
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that, the data of some STADAN stations would be divided or broken-up and placed into two separ- 
ate books. This might appear to be bad human engineering from the viewpoint of the STADAN 
station scheduler.) 

PASS-CHAINS OF FINAL OUTPUT 

In the final print-out or books of scheduling data, it is easy to recognize the station passes of 
each satellite by observing the vertical chains of data, at one minute intervals, under the satellite's 
notation or identification character (s). Henceforth, a vertical chain of data at one minute intervals 
will be called a pass- chain* 

Regardless of the time increment variations of successive data points of predicted satellite 
operations, no break(s) will ever occur in a pass- chain except when, during a station pass of more 
than 1 day, the day count increment (disregarding the 365 or 366 days/year) of two successive 
data points of predicted satellite operations exceeds 1 day. Scheduling data are not generated for 
the date or dates on which no data point of predicted satellite operations is computed. If at least 
1 data point of predicted satellite operations for a station pass of any duration is computed for a 
date, additional scheduling data will be generated to complete the pass-chain for that date. To 
guard against breaks in the pass- chain, the time increment of any two successive data points of 
predicted satellite operations for a station pass should never exceed 24 hours or 1440 minutes. 
(While it is recognized that the above case is remote, the situation could be encountered with 
Syncom-type satellites and deep space probe vehicles.) 

METHODS FOR HANDLING EXTRAORDINARILY LARGE NUMBERS 
OF STATIONS AND SATELLITES 

Each of the T&DS IBM 7094 computers (A, B, and C) at GSFC has a maximum of 14 physical 
tape units (tape drives), even though each has 30 logical tape units. Subprogram 3 can use up to 
12 of the 14 physical tape units, 2 for input and 10 for output. The 7094 computer system will not 
allow subprogram 3 to use the remaining 2 physical tape units. 

The 10 output tape units used in subprogram 3 with 132 character-wide print-out sheets are 
presently adequate for all normal operations. However, in an abnormal operation and with the 
number of satellites in orbit steadily increasing, the 10 output tape units, as used in subprogram 
3 with 132 character-wide print-out sheets, may or will soon be inadequate. In order to make the 
10 output tape units adequate for all present and future operations, including extra large numbers 
of stations and satellites, it is necessary to devise methods or techniques to overcome the above 
limitations. Three such methods are given here. 

Method 1: The names of the STADAN stations, which are listed in the predicted satellite oper- 

ations data and are not NOSTAT stations, are separated into two or more sets (set 
A, set B, etc,). Then, 

(a) The members of all of the above sets except, say, the set A are punched on 
subprogram 1 input data cards as NOSTAT stations. Now, the above input data 
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cards, other appropriate data cards, and all of the predicted satellite operations data 
are input, in the usual manner, into the computer for a run of subprogram 1. Using 
the output of subprogram 1, subprograms 2 and 3 are run in the usual manner, also. 
The final result of these three runs is a set of books of scheduling data whose STADAN 
stations are members of set A. 

(b) The members of all the sets except set B are punched on subprogram 1 input data 
cards as NOSTAT stations. These input data cards, other appropriate data cards and, 
again, all of the predicted satellite operations data are input, in the usual manner, 
into the computer for a run of subprogram 1. Using the output of subprogram 1, sub- 
programs 2 and 3 are run in the usual manner. The final result is a set of books of 
scheduling data whose STADAN stations are members of set B. 

(c) This method may be continued for any number of sets. Of course, the method 
increases the computer time; however, the placement of the scheduling data within the 
books is virtually unaffected. 

Method 2: The names of the satellites, each of which is predicted to pass through the field of 

tracking and data acquisition of at least one non-NOSTAT station and whose predicted 
operations data are to be input into the computer for the run of subprogram 1, are 
separated into two or more sets (set G, set H, etc.). Then, 

(a) The predicted operations data of the satellites whose names are members of one 
and only one of the above sets, say set G, are input for a run of subprogram 1. The 
input data cards of subprogram 1 are appropriately adjusted for the run. Using the 
output of subprogram 1, subprograms 2 and 3 are run in the usual manner. The final 
result of these three runs is a set of books of scheduling data whose satellites are 
members of set G. 

(b) The predicted operations data of the satellites whose names are members of set 
H are input into the computer for another run of subprogram 1. The input data cards 
of subprogram 1 are appropriately adjusted, again. Using the output of subprogram 1, 
subprograms 2 and 3 are then run in the usual manner. The final result is a set of 
books of scheduling data whose satellites are members of set H. 

(c) Method 2 may also be continued for any number of sets. The computer executing 
time, excluding compiler time, is not significantly increased by this latter method. 
However, the placement of the scheduling data within the book is affected. 

Method 3: An appropriate combination of methods 1 and 2, above. 

EXPLANATION OF THE EXAMPLE OF THE FINAL OUTPUT FORMAT 

A blank at time t in column A, B, or C under a particular station indicates that RELAY 1, 
RELAY 2, or ECHO 2 is not in the field of tracking and data acquisition of that station at time t. 


12 


Fdr example, at time 0836, RELAY 1 and 
RELAY 2 are not in the field of tracking and 
data acquisition of FTMYRS. 

A, B, or C at time t in column A, B, or 
C under a particular station indicates that 
RELAY 1, RELAY 2, or ECHO 2 is in the 
field of tracking and data acquisition of that 
station but is not in sunlight at time t. For 
example, at time 0836, ECHO 2 is in the field 
of tracking and data acquisition of FTMYRS, 

LIMAPU, and QUITOE but is not in the 
sunlight. 

An asterisk at time t in column A, B, or 
C under a particular station indicates that 
RELAY 1, RELAY 2, or ECHO 2 is in the 
field of tracking and data acquisition of that 
station and is in sunlight at time t. For ex- 
ample, at time 0836, RELAY 2 is in the field 
of tracking and data acquisition of JOBURG and is in the sunlight. 

At time 0837, 7 in column C under station QUITOE indicates that ECHO 2 is at maximum 
elevation angle in the field of tracking and data acquisition of QUITOE, but is not in sunlight, and 
that the maximum elevation angle ranges from 70-79 degrees. 

At time 0847, 5* in column C under station SNTAGO indicates that ECHO 2 is at maximum 
elevation angle in the field of tracking and data acquisition of SNTAGO, is in sunlight, and that the 
maximum elevation angle ranges from 50-59 degrees. 

The character •, followed by the blank character, was used to separate the data of the stations 
(see the parameter DOTS2 of the INPUT DATA CARDS of SUBPROGRAM 3). 

CONCLUSION 

The computer program is capable of deleting, from the predicted satellite operations data 
(as calculated by the revised GSFC orbital programs), the data of any orbital parameter, station 
pass, STADAN station, and/or satellite; handling or processing the predicted operations data of 
any satellite, including Syncom or a Syncom-type satellite (which would have a single continuous 
pass from Start-Date to Stop-Date); imposing no limits on the duration of any pass (that is to say, 
the computer program can handle a station pass of any duration); generating or calculating new 
predicted satellite operations data when the time interval (during a station pass) of successive 
predicted satellite operations data points equals or exceeds two minutes; and processing, by 



640908 
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TIME 

FTMYRS 

JOBURG 

LIMAPU 

OOMERA 


H M 

A B C 

ABC 

• ABC 

ABC 


836 

C 

• 

• C 



837 

c 

• 

• C 



838 

c 

• 

• C 



839 


• 

• c 



840 


* 

• 6 



841 


* 

• C 

* 


842 


* 

• C 

• 


843 


* 

• C 



844 


* 

• C 

# 


845 


* 

• C 

# 


846 


• 

• C 

• 


847 


* 

• # 

* 


848 


* 

• * 

« 


849 


* 

• * 

* 


850 


* 

• * 

* 


851 


* 


* 


852 


• 


* 


853 


* 


* 


854 


* 


* 



QUITOE 

ABC 

C 

7 

C 

c 

c 

c 

c 

c 

c 

c 

c 


SNTAGO 

ABC 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

5 * 

* 

A * 

A * 

A * 

A * 

A * 


IDENTIFICATION 

A -RELAY 1 
B- RELAY 2 
C- ECHO 2 


Figure 1— An example of the final output format. 
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methods 1, 2, and 3 as described above, the predicted operations data of extraordinarily large 
numbers of satellites and stations. 


In addition to improving STADAN station scheduling, the computer program may also serve 
as a catalyst to a Phase n-type computer program for more automated station scheduling. 

The utilization of this computer program will result in a significant saving in manpower and 
a faster and more efficient operation. 

(Manuscript received October 7, 1965) 
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Appendix A 

Computer Program Statements 
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n trt 


SUBPROGRAM 1 


$ I BSVS 
SID R02T 

$* 

$* 

$* 

$* 

$* 

$* 

$* 

SPAUSF 
SDATF 
SFXFCUTF 
$ IBJ0B 
IBFTC MAIN 

STATI0N SCHEDULING. SUBPR0GRAM 1 OF PHASE 1 
L0GICAL F0F 
C0MMON/SYSFOF/E0F 
F0F = .FALSF . 

CALL SYSG0OA) 

CALL SYS GO (35 ) 

INTFGFR X.0P.EN.STA.TIME *Z • TNSATL 

ODATA 0P/6H0P / . EN/6HEN / . ST A/ 6H ( ST AT I / . T I ME /6H ( T I ME /.ICHAR/ 

16H* / 

ODIMENSI0N N0STAT (99 ) . JST A T ( 1 00 ) , KT I M ( A ) . JT I M ( 9 00 ) . MI NS ( 900 ) » JEL ( 90 
10) . JCHARI 900 ) . JDAY ( 9 00 ) , JDATE (9 00 ) . NT I M ( 900 ) . NEL ( 900 ) .NCHAR (900) »N 
2DAYI900) .NDATE ( 900 ) 

RFAD (2.3) TNSATL 
3 FORMAT (13) 

K = 0 
J = 1 

n« A 1 = 1 .TNSATL 

READ (2.5)Z,JPSI .KEY , N8S . ( N®S TAT < L ) .L=1.N©S) 

5 FORMAT ( A1 ,A4, I 1 . 12 .99A6 ) 

IF (KFYJ16. 17,16 
16 GOTO (18. 19, 20). J 

18 RFAD (5.2DKSKIP 
IF ( F0F ) GOTO 22 
GOTO 18 

19 READ (6.21 IKSKIP 
IF (EOF)GOT© 22 
GOTO 19 

20 RFAD ( 15,21 IKSKIP 
IF (FOF)GOT© 22 
GOTO 20 

21 FORMAT (ID 

22 £.0F= • FALSF . 

IF (KFY-1 1232.17,23 

23 KFY = 1 

GOTO (2A, 25.26). J 
2A REWIND 5 
J = 2 

GOTO 19 

25 RFWIND 6 
J = 3 

GOTO 20 

26 RFWlNn 15 
J = 1 

GOTO 18 


WDD521A. X A 1 89 

DEAR OPERATOR, PLEASt MOUNT THE TAPES. AS DESIGNATED ON 
INSTRUCTION CARD. ON A5.A6.AND B5. A3 AND B6 ARE MY OUTPUT 
UNITS. SAVE MY B6 OUTPUT TAPES. 

RESTART MACHINE. THE MACHINE WILL READ AND REWIND A5.A6. 
AND B5, SEQUENTIALLY AND C YC L I CALL Y , UNT I L ALL TAPES ARE 
RFAD. AFTER A5.A6.OR B5 IS REWOUND, MOUNT , I MMED I AT EL Y » THE 
NEXT TAPE AS SHOWN ON INSTRUCTION CARQ. 

052065 
I B JOB 
GO 


17 GOT® ( 27,28 ,29 ) , J 

27 READ (5*30) IDFNT.X 
IF (F®F)G®T® 31 

IF (X-STA)32, 33*32 

32 IF (X-TI^F)27, 34*27 

28 READ ( 6*30 ) IDFNT *X 
IF (FEF)G®T® 31 

IF (X-5TAI35, 33*35 

35 IF (X-TIMF128* 34*28 

29 RFAD ( 15*30) I D C N T » X 
IF (F©F)G®T® 31 

IF (X-STA ) 36*33.36 

36 IF (X-TIVFJ29, 34*29 

30 FERMAT (29X»A5*1X»A6) 

34 PRINT 37.IDFNT 

37OF0RMAT ( 1H0 ♦ 50HSTEPR ING PRtUlXS Akt TIME SERTED r©R SATtLLlTc 

1A5.35H . USF 3NLY ST AT I SN SERTFD PRFDIXS.) 

G®T® 23? 

41 F®F = . F AL S c . 

jp (<FY— 1 ) 3 8*17*38 
38 GET® ( 30,40*41 ) ,J 
30 RFWIND 5 
J = 2 

GET® ? 8 

40 PFWIND 6 
J = 3 

GET® 29 

41 R F W I NO 15 
J=I 

GET® 2 7 

33 G®T© ( 42.43,44) ,J 
4? °Fin (5,21 ) K c X I P 

IF (FEF)G®TE 45 
G©T® 46 

43 RFAD (6,21 JXSXIP 
IF (FEFIGET® 45 
GET® 46 

44 RFAD ( 15*21 >X®KIP 
IF (F®F)G®TS 45 
GET® 46 

45 F EF= • F Al ®F » 

GET® (47, 48*49), J 

47 REWIND 5 
J=2 

GET® 43 

48 RFWIND 6 
J= 3 

G®TE 44 

49 RFWIND 15 
J=1 

GET® 42 

46 GET® (50, 51, 52), J 

50 READ ( 5,53 ) KSTC »X ST A T ♦ KP A SS »KUA Y , KuA T E *<T I M,<tL »KCHAR 
IF (FEF)G®T© 54 

GET© 55 

51 READ (6,53)KSTC,KSTAT*KPASS,KDAY*KDATE,KTIM,KEU,KCHAR 
IF (F©F)GETE 54 

GET® 55 

52 RFAD (15*53) KSTCtKST AT ,X.PASS* <!)AY ,KDATF ,KT I V, , KFL, KCHAR 
IF ( F0F )GET© 54 



GST© 55 

53 F0RMAT < 1 X , A2 , 1 X , A6 , A1 *6X , A3 * IX * A6 * 1 X , 4A 1 * 14X , A4 , 16X * A1 1 

54 F®F=.FALSP. 

GST® (56*57, 58). J 

56 RFWIND 5 
J = 2 

GST ® 51 

57 RFWIND 6 
J = 3 

G®T ® 5 2 

58 RFWIND 15 
J=1 

G0T® 50 

55 0® 59 w=l , N®S 

IF (KSTAT-NSSTAT(M) 159,60,59 

59 C0NTINUF 
JSTC=KSTC 

IF (061,62,61 

61 00 63 JK = 1 , K 

IF (JSTAT ( JKl-KSTAT 163,64,63 

63 C0NTINIJF 

62 K =K + 1 
JK = K 

JSTATI JK)=KSTAT 

64 NB IG=0 
196 NP ASS= 0 

65 00 66 N = 1 ,900 

00 67 ,4 

KTlM(M)=KTIM(M)/(2**30) 

67 G0NT I NIIF 

JTIM(N)=KTIM(1)*<10**3)+KTIM<2)*<10**2)+KTIM(3)*10+KTIM(4) 

MINS(N)=KTIM(3)*10+KTIV(4) 

JFL(N)=KFL 
JCHAP(N)=KCHAR 
JOAY { N 1 =KDA Y 
JOA TF(N)=KOATF 
80 GST® ( 68,69,70) , J 

68 READ ( 5, 153 1KSTC ,<PASS,KDA Y.KDATE ,KT IM,KEL,KCHAR 
IF (F0F1G0T0 71 

G0T0 72 

69 READ (6*153)KSTC»KPASS,KDAY,KDATF,KTIM,KFL,KCHAR 
IF (FPF1G0T® 71 

GSTm 7? 

70 READ ( 15.153)KSTC.KPASS*KOAY,KOATE.KTIM,KEL.KCHAR 
IF ( FfflF ) G0T 0 71 

GST® 7? 

153 F0RMAT ( 1 X , A2 , 7X , A 1 , 6X , A3 , 1 X , A6 , 1 X , 4A 1 , 14X , A4 , 16X , A1 1 

71 FSF=.FALGF. 

GST® ( 73,74,75 1 , J 

73 RFWINO 5 
J=2 

GST® 69 

74 RFWINO 6 
J = 3 

GST® 70 

75 RFWINO 15 
J*1 

GST® 68 

7? IF (JSTr-KSTG) 77,76,77 

76 IF ( KP AGS- ICMAR ) 66 » 78 ,66 


77 GOTO (81 *82 *83 ) ♦ J 

81 READ (5*21)KSKIP 
IF (E0F)G©T0 84 
GOT© 85 

82 RFAD (6*21 )KSKIP 
IF I F0F ) GOTO 84 
GOTO 85 

83 RFAD (15*21 JKSKIP 
IF ( FOF ) GOTO 84 
GOTO 85 

84 FOF = »FALSF • 

GOTO ( 86*87*88) *J 

86 REWIND 5 
J-2 

GOTO 82 

87 PFWIND 6 
J = 3 

GOTO S3 

88 RFWIND 15 
J=1 

GOTO 81 

85 IF (KSTO0P)79*8O*79 
66 CONTINUF 

NPASS=900 
N = 900 

79 GOT© (89*90*91 ) *J 

89 RFAD ( 5*92 )KSTC 
IF ( EOF ) GOTO 93 
GO TO 78 

90 R^AD (6*9?)KSTC 
IF ( FOF ) GOT© 93 
GOTO 78 

91 RFAD (15*92)KSTC 
IF ( FO c ) GOTO 93 
GOTO 78 

92 FORMAT (1X*A2) 

93 FOF=*FALSF. 

GOTO (9A*95*96)*J 

94 REWIND 5 
J= 2 

GOTO 90 

95 RFWIND 6 
J = 3 

GOTO 91 

96 RFWIND 15 
J= 1 

GOT® 89 

78 IF ( NRIG)97*98*97 

98 JFLM=0 

97 DO 99 Msl ,N 
JFLM=MAX0 ( JFL ( M ) * JELM) 

99 CONTINUF 

IF ( JFLV-JPSI )1 00 *101*101 
101 I N=1 
M X = 1 
IX = 1 
J630=2 
J 6 2 4 = 2 
J6 1 2=2 
J6 3 2 = 2 



J1 30=2 
Jl?l=2 
J1 32=2 
J1 3P = 2 

I F ( N Q 16) 1 02 ,643 , 1 02 
3 43 IF (N-I 1601 ,634,601 
301 I N= l N+l 

103 IF (JDAT r ( IN l-JOATFC'x )) 106,623, 106 
623 IF (MIN«(MX>-990D59)611,62?,611 

622 IF t JTIMt IN)-JT1M(MX >-000041 >603*604*623 

623 NT I M ( I X ) = JT IM ( MX ) 

NFL (IX) =JFL ( MX ) 

NCHAR ( IX ) = JCHAR (MX ) 

NO A Y ( I X ) = JOA Y ( M X ) 

NOA TF ( I X ) = JOA TF < >/y ) 

IF ( IX-900 )6?4 ,6 1 3 ,613 

624 IF (J^LI-'X )-JFL'M627,623,623 
62 P JFL (MX ) =JF1 ( [N ) 

6?7 ix=IX+l 

JTIM(MX)=J T IM(YX 1+0^0041 
M I N 3 ( v X ) = O 

IF I JOATF ( IN)- JO ATEI MX 1)605,611.605 

611 IF ( JT IM ( I N ) -JT IM( MX ) -00000 1 ) 603, 604,605 

603 IF ( JFL ( IN l-JFLM )606 ,607,607 
607 JFL ( MX ) = JFL ( IN ) 

JCHA 0 ( MX ) = JCHAR ( IN ) 

606 IF ( IN-N1601 ,603,601 

604 NT IM ( i X ) =JT IM ( MX ) 

NFL ( IX ) = JFL ( MX ) 

NCHAR ( i x ) = JCHAR ( MX ) 

NOA Y ( IX)=JOAY(MX) 

NO A T F ( I X ) r JOAT^ ( My ) 

M X = I N 

IF ( IX-900)630,609,609 

630 I X = I X+ 1 

IF ( IN-N 1601 ,608 .601 

605 NT I M ( I X ) = J T I M ( M X ) 

NFL ( IX )= JFL (MX ) 

NCHAP ( IX ) = JFHAP ( My ) 

NDA Y (]X) = JOA Y I MX ) 

NDATF ( I X )= JOATF < M X ) 

IF ( IX-900 )61 2 ,631 ,631 

612 IF ( JFL(MX)-JFLM)629. 626*626 
626 JFL ( MX ) = J r L ( I N ) 

629 IX=IX+1 

JT I M ( MX ) = JT IM ( MX ) +0C0001 
MI NO (MX) =MIN3(MX ) +000001 
IF (JOATF ( IN ) -JOATF (MX) 1107,625,107 
107 IF (MJN5(MX)-00005 9)605*1 06, 106 
609 J630=0 

GOTF) 103 

613 J624-0 
r,fi)T«) ] Ob 

631 J6 1 2 = 0 
GOTO 103 

60S IF (NPAS 5)640* 634*640 
634 NT 1 M f IX J - JT I M ( MX ) 

NFL t IX ) -JFL (MX > 

NCHAR ( IX ) -JCHAR ( MX ) 

NOA Y ( I X ) * JOA Y ( MX ) 



NDATF ( IX ) =JDATF {MX ) 

GOTO 108 

640 NJTIM=JTIM(MX) 

NJFL=JFL ( MX ) 

NJCHAR=JCHAP (MX ) 

NJDAY=JDAY(MX> 

NJOATF=JDATF(MX) 

MM I N6 = M INS I MX ) 

I X= I X-l 
GOT© 108 

106 IF (JTIM<MX)-002359) 110,1U,111 

110 IF (MINS(MX)-000059)605,623,605 

111 NTIMI IX)=JTIM(MX) 

NFL t I X ) = JFL (MX ) 

NCHAR ( IX ) aJOlAP ( MX ) 

NDAYI I X ) = JDA Y ( MX ) 

NDATF ( IX ) = JDATF ( MX ) 

IF I IX-900 )632, 633,633 
63? IF (JEL(MX)-JFLM)112, 113.1 13 
113 JFL ( MX ) = JFL (IN) 

112 IX=tX+l 

JT I M ( MX ) =0 
M I MS t MX ) =0 
JDAY ( MX ) = JDAY ( IN) 

JDATF(MX)=JDATF< IN) 

GOT© 611 
633 J632=0 

GOT© 10« 

102 IF (JOATFI IN)-NJ0ATE)114. 115.114 

116 IF ( NVIM6-00C059 ) 1 16.1 1 7,1 16 

117 IF (JTIMI IN1-NJTIM-00OC41 ) 118,119.120 

120 NTIMI IX >=NJTIM 
NFLI IX)=NJFL 
NCHARI IX)=NJCHAR 
NDAYI I X ) =NJ0A Y 
NDATF I I X ) =NJDATF 

IF I IX-900 ) 121 , 122. 122 

121 IF INJFL-JFLM) 123,124,124 
1 24 NJFL=JFL< IN) 

123 IX=IX+1 

NJT IM=NJT IM+000041 
NM I NS= O 

IF (JDATFI IN ) -NJDATE ) 125 » 1 16 , 125 
116 IF (JTIMI lNl-NJTIM-000001 ) 118.119, 125 

118 IF I JFLI IN)-JFLM) 126,127,127 

127 NJFL = JF|_(IN) 

NJCHAP=JCHAR( IN) 

126 IF I I N-N 1128,129,128 
129 IF I NP AS 5)196,301, 196 
301 NTIMI IX)=NJTIM 
NFLI IX)=NJFL 
NCHARI I X ) =NJCHAP 
NDAYI I X ) =NJDA Y 
NDATF! IX ) =NJDATE 
GOT© 108 

128 I N= I N+ 1 
GOTO 102 

1 19 NTIMI I X ) =N JT I M 
NFLI I X ) =N JFL 
NCHARI I X ) =NJCHAR 



NDAY (IX) =N JDA Y 
NDATF ( IX ) =NJDATF 
MX = IN 

IF ( IX-900)130.131.131 
no IX = IX+1 

IF ( IN-N)601,608,601 
125 NT I'M IX)=NJTIM 
NFL ( IX )=NJFL 
NCHAR! IX ) =NJCHAR 
NDAY ( I X ) =NJDAY 
NDATF ( IX ) =NJDATf 
IF ( IX-9001132,133.133 

132 IF (NJFL-JFLM)134, 135.135 
I 3 5 NJFL = JFi (IN) 

1 34 IX=IX+1 

NJTI M = NJTIM + O00 ori l 
NMINS=N M INS+000001 
IF (JDATF ( IN)-NJDATE)136*115*136 

136 IF (NVINS-00C059) 125,114,114 
131 J1 30=0 

G®T(? 108 
122 J1 2 1 =0 
G®T® 108 

133 J 1 32 = 0 
G®T P 108 

114 IF (NJTIM-002359) 137.138.138 

137 IF (N^IN?-000059) 125,120,125 

138 NT I M ( I x ) =NJT I m 
NFL (IX) =NJFL 
NCHAR ( IX)=NJCH47 
NDAY ( I X ) =N JDA Y 
NDATF ( IX) =NJDATF 

IF ( IX-900)139,140,140 

139 IF (NJFL-JFLY) 141,142.142 
142 NJFL=JFL( IN) 

141 IX=IX+1 
N JT I M = 0 
NM I N5= 0 
NJDAY=JDAV( IN) 

N JDA TF = JDA TF ( IN) 

G®T® 116 

140 J1 39=0 

1 08 D5) 167 V = 1 , IX 

IF (NFL(M)-JFLM)168,169,169 

169 IF ( NCHAR ( M (-ICHAR ) 17C.171 , 170 

171 WRITE ( 16, 172 >NDATE(M) , NT I M ( M ) , JK , I .NDAY ( M ) , NEL ( M ) ,NCHAR(M) 

172 F9RMAT ( 2HCC » IX . A6 » 1 X » 1 4 » 1 X , I 3 , 1 X , I 3 , IX , A3 . 2X , A 1 , A1 ) 

G®T® 167 

168 IF (NCHAR(M)-ICHAR) 173,174,173 

1 7 4 NFL(M) =NrHAR(Y) 

c.®t® no 

no NFL (V)=7 

170 WRITE ( 16.175 )NDATE(M) , NT IM(M) ,JK, I .NDAY ( M) ,NEL(M) 

175 F0RMAT ( 2HC C , 1 X , A6 . 1 X , I 4 , 1 X , I 3 , 1 X , I 3 , 1 X , A 3 , 2 X , A 1 » 1H ) 

167 CONTINUE 

IF ( IX-9C9) 176.177.176 

177 IF ( J630)178.1 7 9,178 

178 IF ( J624J180.181.180 
180 IF ( J6121182.183.182 
187 IF ( J632)184,188,]84 



184 IF t J130)186,187,186 

186 IF (J121J188. 189,188 
188 IF ( J132)190,191,190 

190 IF ( J139)176,193,176 
179 J630=2 

I X = 0 

GOT® 630 
181 J624=2 
IX = 0 

GOT® 624 
183 J61 2=2 
IX = 0 

GOTO 612 

188 J632=2 
IX = 0 

GOTO 632 

187 J1 30=2 
IX = 0 

GOTO 130 

189 J121=? 

IX = 0 

GOTO 121 

191 J 1 32 = 2 
IX = 0 

GOTO 132 

193 J1 39=2 
IX = 0 

GOTO 139 

176 IF ( NPASS ) 194 » 1 00 * 194 

194 NR IG=4 
GOTO 196 

100 IF (JSTC-KSTC) 197,64,197 

197 PRINT 199»JK»JSTAT { JK ) , I ,Z, I DENT 

199 FORMAT ( 7X , I 3 , 3X , A6 , 8X , I 3 , 3X , A1 , 3 X , A5 ) 
223 IF (KSTC-FN)46,227,46 

60 J < 'TC = K8 T C 

218 GOTO (200,201 ,202 ) ,J 

200 RFAD ( 5 , 92 ) KS TC 
IF ( FOF ) GOTO 204 

IF ( JSTC-KSTO205, 200,205 

201 RFAD (6,92 )KSTC 
IF (FOF)GOTO 204 

IF <JSTC-KSTC)205,201,205 

202 RFAD (15»92)KRTC 
IF (FOF) GOT® 204 

IF (JSTC-KSTCJ295, 202,205 

204 FOF = • FAL RF . 

GOTO ( 206,207,208 ) ,J 

206 D FW I ND 8 
J = 2 

GOTO 201 

207 RFWIND 6 
J = 3 

GOT® 202 

208 RFWIND 15 
J=1 

GOTO 200 

205 GOTO (209,210,211) ,J 

209 RFAD (8,21 ) K .8 K I P 
IF (FOF)GOTO 212 
GOTO 213 



21* RF AD (6*21 )F r K IP 
IF (FOF) GOT© 212 
GOTO 213 

211 PFAD ( 15*21 ) K 8 K I P 
IF (F0F)G©T© 212 
GOT© 213 

212 F©F=.FALSF. 

GOT© (214*215*216) *J 

214 PFWIND 5 
J = 2 

G©T© 210 

215 PFWIND 6 
J= 3 

G©T© 211 

216 RFWIND 15 
J=1 

G©T© 209 

213 IF (KSTC-OP)217 *218*217 

217 GOT © ( 219,220,221 ) »J 
219 PF AD ( 5 * 9 2 ) K .5 T C 

IF (F©F)G©T© 222 
G©T© 223 

720 PFAD (6*92)KSTr 
IF (FOF)G©T© 222 
GOT© 223 

221 PFAD MS*92)KSTr 
IF (FOFIGOTO 222 
GOT© 223 
?72 F OF =*FAL C F. 

GOTO (224 *225 *226 ) *J 
274 PFWIND 5 
J = 2 

GOT© 220 
??5 PFWIND 6 
J = 3 

GOTO 221 

226 PFWIND 15 
J=1 

GOTO 219 

227 GOTO (228 *229 *230) *J 

228 RFWIND 5 
J = ? 

GOTO 4 

229 PFWIND 6 
J = 3 

GOTO 4 


230 PFWIND 15 
J=1 

4 GONTINUF 
PP I NT 231 

231 FORMAT ( 1 HO * 1 OHEND 0F PUN) 

FND FILF 16 

23? 5 T OP 
FND 

$ I R M AP 1JN1 6 

FNTRV * UN 1 6 • 

• ' 1 N 1 6 • P2F UNIT16 

UNI T 1 6 FILF *B(2)fREADY|* IN©UT*RLK=22 * MULT I KF f:L * BCD * HOLD * MOL I 5 T 

FND 



% i p l op c o v o 

(RFLOCATARLF BINARY DECK. FOR SUBROUTINE FRWB ) 


$ I rldp prwh 

( Q F L©C AT ABLF 

BINARY 

DECK 

FOR 

SUBROUTINE 

FRWD ) 

<£jQj_no rc, L j 
(RELOCATABLE 

BINARY 

DECK 

FOR 

subroutine 

FSL I ) 

T|nj_p,D r y F M 
(RELOCATABLE 

BINARY 

DECK 

FOR 

SURROUT I NE 

FXFV) 

ST PLOP N^SYS 
(RELOCATABLE 

BINARY 

DECK 

FOR 

SUBRSUT I NE 

NS SYS ) 

7 I pj no r,ccyc 
( PFLOC ATABLF 

BINARY 

DECK 

FOR 

SUBROUTINE 

GOSYS) 


( FNO-OP-ri le 

CAPO) 

( n A T A r APH C ) 


( rfin-or- r i le 

r APD ) 

t p y r V c 


{ F^n-PF-E I LE 

CAPO) 


P fa r, p A M 7 


7 T n S Y r 


STO RD?T 

wnns? l a • 

'tori c*A r E 

r v r pp 1 

S D EL r A r E 

<* Y r UTl 

T^ELF^f 

r y ^ 1 1 T 2 

7, P E l F A r E 

SYSUT3 

$ p r l E a " E 

c YSUT4 

7 A T T A r H 

PDA 

7A r 

SYS INI 

7 E y r r ; • T c 

r OPT 


XA1 B 9 


op T I ON t ^AP * H I S TOP Y t C ARDS ♦ T APE S * N0CKP T 


CHANNEL * I NPUT/P tMF.ROF/ ( A f R ) 

F I LF » I NPUT/1 •RFELS/1 » MODF / 1) « Dfc H S I T Y / H * BLOCKS I Z F / 5 
F I L P , OUTPUT f^OUF /D » DFNS I T Y / H , BLOCKS I 7 F / 5 
RFCOR()*T YPF/F« LENGTH/5 tFIFLO / ( 3*6*1 *4* 1 *3* 1 *3 ) 
SORT *SFQUENCF/C »©Pf>EP/3*F I FLO/ (2*4. 6. 8). FILE /I 


FND 

7 T p S Y S 

$ c TS>D 


ri |p pp^r.P A M 3 


% T n r Y c 

tin pr>?T wdds?ja, X4i80 

$* DEAR OPERATOR. PLEASE MSUNT THE TAPES. AS DESIGNATED 0N 

$* INSTRUCTION CARD .ON A 5 AND A6. MY OUTPUT UNITS ARE SHOWN 

$* ®N THE INSTRUCTION CARD ANU.WHEN NUMBER OF (OUTPlJl UNITS 

$* EXCEEDS St THE 0N-LJNF PRINTER. 



$* 

$* 

$* 

s* 

$* 

SPA'jSF 


SAVF MY OUTPUT T A P F S • 

RESTART MACHINE. THE MACHINE WILL READ AND REWIND A5 AND 
A6 *SEOUENT I ALLY AND CYCL I CALL Y »UNT I L ALL TAPES ARE READ. 
AFTER A 5 OR A6 IS RE WOUND ♦ MOUNT » I MMED I AT EL Y t T HE NEXT TAPE 
AS SHOWN O'N INSTRUCTION CARD. 


% DA T F 061065 

S F X c C i ! T F I D JOP 

% T Q J^P CO 

C STATION SCHEDULING t SUBPROGRAM 3 OF PHASF 1 

LOGICAL F^f 
COMMON/ SYS FO p/FOF 


fof=.falsf # 

CALL S YSGO ( 3 A ) 

CALL S y$G0 (35) 

INTEGER REELS »Z( DOT 52 * DASH t TN5T A T ♦ TN5A Tl 
DATA IFND/6HFND OR / , jwopo / 6H'0 C / 

ODIMFNSION NUN* ( 10 0.72 ) *NGT { 720 ) ,MST ( 7 20 ) » JSTAT ( 1 00 ) *MS ATL ( 100 ) *NSIJ ( 
110) * JFL ( 7 2 ) 

° F AD 

? FOt?M AT f 2 A 2 ) 

R EAD 3 »TNSTAT »TNSATL »RFELS 

3 FORMAT (313) 

L = 1 

DO 4 NS=] * T N S T A T 

READ 5 » JK * KS T A T tNSATL* (NUM ( JK* I ) *NOT ( I ) » I = 1 * NSA TL ) 

5 FORMAT ( I3,1X*A6*1X* I2,1X*72( I2tA2) ) 

IF ( JK -NS ) 6 » 7 * 6 

6 PRINT « 

50FOPMAT ( 1HO.118HST0PPING DATA CARO S OF STATIONS ARE DISORDERED. 

1 CLEAR MACHINE AND PLACE DATA CARDS IN CORRECT ORDER . RERUN PROGR A 
2 M • i 

o 

7 JSTAT (NS )r<STA T 
v$ATL( N c ) =NSATL 
DO 10 K=1*NSATL 
^OT ( L ) =NOT { K ) 

L = L+ 1 

10 C®NTINUF 

4 C O N T I Ni IF 


N c = f 
mii = i 

11 MC PI 1=1 
m A NY “0 

1? M A N Y = M A N Y + 2 * v G A T L (NS)+2 
ir ( MANY- 126)13*14*15 

13 IF ( NF-TNFTAT ) 16 , 14, 16 

16 M S D U = N S P U + 1 
N S =N S + 1 
GOTO 12 

15 N^PU=NSPU-1 
N c: = N c - 1 

IF (NSPU) 14*17, 14 

1 7 PRINT 16 

180FORMAT ( 1H0*87H STOPPING NSPU = C • 132 CHARACTER-WIDE PRINT-OUT 

1 SHEFT IS INSUFFICIENT FOR THIS JOB.) 

GOTO 9 

14 N SU ( Nl ' ) = N C PU 

IF (NS-TN C TAT ) 19*20,19 
19 N S = N c + 1 



NU=NU+ 1 
G@T© 11 
?0 JXX=NU 

IF (JXX-6121 .22.23 

23 IF ( JXX-7)22,24,25 
25 IF (JXX-8)24, 26*27 
27 IF ( JXX-0)26,2«,29 
29 IF ( JXX-10 )28,30,31 
22 PRINT 32 

32OF0RM AT ( 1 HO * 67HSPER AT®R ACTI®N PAUSE DIAL TAPE UNIT A4 T® A7. 

1RFSTART MACHINE. ) 

PAUSE 
RFW I NH 7 
G®T© 21 

24 PRINT 33 

33OF0RMAT ( 1HO , 70H®P£R A70R ACTIfflN PAUSE DIAL A4 T® A7 AND B4 T® B7 

1 . RFSTAPT MACHINE. ) 

PAUSF 
RFW I ND 7 
REWIND 17 


G©T® 21 
26 PRINT 34 

34OF0RMAT ( 1HO ♦8OH0PERAT0R ACTI0N PAUSE DIAL A4 T® A7 , B4 T0 B7 AN 

ID B2 T® B8. RESTART MACHINE.) 

PAUSF 


RFW I ND 7 
REWIND 17 
RFW I ND 18 
G®T® 21 
28 PRINT 35 

350F ® RMAT ( ih0.90H®PERAT®R ACT I0N PAUSE DIAL A4 T® A7 , B4 T® B7 , B 

12 T® B8 AND B1 T® B9. RESTART MACHINE.) 

PAUSF 
REWIND 7 
REWIND 17 
REWIND 18 
REWIND 19 
G©T® 21 

30 PRINT 36 

360F®RMAT <1H0,119H®PERAT®R ACTI®N PAUSE REPLACE REEL ®N A2 WITH A 

IN ©UTPUT REEL. DIAL A2 T0 A8*A4 T® A7,B4 T® 87*B2 T® B8 AND B1 T® 
2B9./1H0*25X,16HRESTART MACHINE. ) 

PAUSF 
REWIND 7 
RFW I ND 17 
RFWIND 18 
RFWIND 19 
G®T® 21 

3 1 PR I NT 37 

370F©RMAT ( 1H0»65HST®PPING INSUFFICIENT N®. ®F PHYSICAL TAPE UNITS 

1 F©R THIS JOB.) 

G©T © 9 

21 READ 38*FDATE*FTIME *LDATE ♦ LT I ME 
38 F©RMAT (4A6) 

D© 49 J*1,JXX 

G©T® ( 50,51,52*53*54*55*56*57,58*59) »J 
50 WRITE (3,60)EDATE,ETIMF*LDATE,lTIME,J.JXX 
G0T® 49 

WRITE 1 15 ,60 )EDATE*FTIME *LDATE*LT I ME* J« JXX 
G®T© 49 


51 


52 WRITE (16,60)FDATE.FTIME»LDATE,LTIME,J,JXX 
G®T© 49 

53 WRITE <21,6S>FDATE*FTIME,LDATE,LTIMF,J»JXX 
G0T® 49 

54 WRITE ( 2 2 ♦ 6C )FDATE » FT I MF , LD AT F , L T IMF » J » JXX 
G0T© 49 

55 WRITE ( 7 ,60 ) FDATE .FT IMF .LDATE ,LT I MF » J. JXX 
G®T® 49 

56 WRITE <17, 60)FDATE»FTIME, LDATE. LTIME.J.JXX 
G®T® 49 

57 WRITE ( 18*60 )FDATE*FT I ME .LDATE.LT IMF *J*JXX 
G©T© 49 

58 WRITE ( 19*60 )FDATE*FT I ME »LDATE,LT IMF *J*JXX 
0®T© 40 

59 WR I T F (8.60)FOATE.FTIMF,LOATF.LTIME.J»JXX 

6 00 FORMAT ( 1 HI / 1 HO/ 1 HO/ 1H 3/ 1 HO / 1 HO / 1 HO/ 1 HO/ 1 HO/ 1 HO/ 1 HO / 1 HO ♦ 49 X , 2 7HGPE 
1RATI0NAL PREDICT Ift'NS FQR/1H « 5 3 X « 18HGTAT I ®N S CHEDUL I NC-/ 1 HO ♦ 49X . 4HF 
2R©M,2X*A6* 1X.A6/1H . 5 1 X . 2 HT0 , 2X . A6 , 1 X , A6/ 1 HO . 56X » 5 H ( PAR T , 1 X , I 2 . 1 X . 
32H0F.1X. 12 *1H) /1H1/1H0,77HID. ID.N0. SATELLITE START-DATE STAR 
4T-TIME ST0P-DATE ST0P-T I ME MIN.EL./1H .24X.50HY M D H M S 

5 v w 0 H m ? DFG. ) 

49 C0NTINUF 
JRF= 1 
J J2 = 1 

D© 61 JT = 1 , TN S A TL 

READ 62.Z, I DFNT .JSATL. N0S, JSDAT , JST IM.JXDAT, JXT IM.JPSI 

62 F0RMAT ( A 1 • 1 X * A5 , 1 X , A6 . A4 . 1 X . A6 , 1 X , A6 . 1 X • A6 . IX , A6 * 1 X . A5 > 

D® 63 J=1 ,JXX 

G0T© ( 64 *65. 66. 67* 68, 69. 70, 71 , 72. 73). J 
64 WR I TF ( 3.74 )Z . I DENT . JSATL, N®E , JSDAT , JST IM.JXDAT .JXTIM.JPSI 
G©T© 63 

6 5 WRITE ( 15.74 >Z. I DFNT » J5A T L » N65 , JSDA T ,JST IM.JXDAT »JXT IM.JPSI 
G®T© 63 

66 WRITE I 16.74 )Z. I DENT, J5 AT L.N0S, JSDAT, JST I M.JXD AT, JXTIM.JPSI 
G®T© 63 

6 7 WRITE (21 *74 )Z, I DENT, JSATL .NGS, JSDA I .JST I M , JXDAT , JXT IM.JPSI 

G0T© 63 

68 WRI TE (22.74 I Z, I DENT .JSATL , N0S , JSDAT , JST I M, JXDAT , JXT IM.JPSI 
G0T© 63 

69 WRITE ( 7,7 4 >Z , I DENT .JSATL ,N0S, JSDAT , JS T I M , JX DA T , J X T I M , JPS I 
G®T® 63 

7 0 WRITE ( 17,74 >Z, I DENT . JS A T L , N©5 , JSDA T , JST I M , JXDAT , JXT I M , JPS I 

GOT© 63 

71 WRITE ( 1 8, 74 ) Z, I DENT, JS A TL.N0S. JSDAT, JST IM.JXDAT, JXT IM.JPSI 
G®T© 63 

72 WRITE ( 19 » 74 ) Z ♦ I DENT .JSATL . N®S , JSDA T , JST I M, JXDAT , JXT IM.JPSI 
G®T® 63 

73 WRITE (8. 74IZ.IDENT, JSATL, N0S. JSDAT, JSTIM, JXDAT, JXTIM.JPSI 

74 F0RMAT (1H , A 1 ,4X . A 5 , 3X , A6 , A4 , 1 X » A6 , 6X , A6 , 6X , A6 , 5 X , A6 , 5X , A 5 ) 

63 C0NTINUF 
61 CONTINUE 

NU* 1 
NS*0 
L«0 
K«0 
78 NX«1 
81 N S = N S + 1 
JT«1 

76 L* L+ 1 
K*K+1 


28 



N0T (L) =^0T (K ) 

\f ( JT-MSATL(NS) )77*78,77 
77 JT = JT+ 1 
G0T0 76 

7 R IF (NX-NMMNU) ) 79*80*79 
70 N X = N X + 1 
L = L + 1 

mi ( l ) »nr!)T5i? 

G0T0 R1 

80 IF (NU-JXX )82 *83*82 
8? NiJsNlJ+1 
G0T0 75 

83 P F AD (5*84) KW^RD * K DA Tt * K T I M * JK * I * KDAY t KF L 

84 FORMAT (A2*lX.I6*lX.A4*lX.I3*lX*I3*lX.I3*2XfA2) 

IF (KW0PD-JW^PD) 83*85*83 

85 JDATF = KDATF 
10 1 L X X = 0 

L 5 U = 0 
N X =0 

00 86 J=1*JXX 
M X X = N 5 t J ( J ) 

LSU=LSU+VXX 
00 87 ^N=l f MXX 
NX = NX*H 

LXX = LXX+Mr ATL ( NX ) 

R 7 r^NTIN'JF 

t . X X = L X X + M X X - 1 

G0T0 (88.R9.90 f 91*92*93* Q 4*95*06*97),J 

8 8 WRITE (3*98 ) KDATE .KDAY* ( JSTAT (NO) *N5=1 .LSU) * (N0T ( L) »L=1*LXX ) 

G^ T *> ■) r p. 

89 WR I T F (1 5*99 ) KDAT E * KDAY * ( J5TAT ( NS) *NS = N1 *LSU) , ( N« T ( L ) * L = N2 * LXX ) 
G^l® 1 o p 

9 0 WRITE ( 16*1^ ) KDAT E* KDAY* ( JSTAT (N5 ) * NS = N1 * L GU ) * ( N0T ( L ) ,L=N2 .LXX ) 

G»TG 1 OR 

91 WRITE (21*101) KDATE * KDAY * ( J5T AT ( NS ) *NS=Nl * LSU ) * { N^T ( L ) * L = ,N2 * LXX ) 
G0T0 108 

9 2 WRITE ( 22 * 1 02 ) KDAT t * KDAY ♦ ( JSTAT ( NS ) * NS = N 1 ♦ L 5U ) * ( N0T (L),L = N2*LXX) 
G^T 0 108 

93 WRITE (7*1 03 ) KDAT E * KDAY * ( JSTAT ( NS ) *NS = Nl ,LSU ) * ( N0T ( L ) * L = N2 * LXX ) 
G0T0 1 OR 

94 WRITE (17*104) KDATE tKDAY * ( JSTAT ( NS ) *NS = Nl *LSU) * ( N0T { L ) *L = N2 *LXX ) 
G0T0 1 OR 

9 5 WR I TF (18*105) KDATE* KDAY * ( JSTAT ( NS ) * NS = N 1 * LSU ) ♦ ( N8T ( L ) , L = N2 * LXX ) 
G0T0 TOR 

9 6 WRITE (19*106) KDATE • M)A Y. ( JSTAT ( NS ) *NS = Nl * LSU ) , (N0T ( L ) , L = N2 , L XX ) 
G0T0 108 

97 WRITE (8* 107) KDATE* KDAY* (JSTAT (NS) *NS=N1 *LSU) * ( N0T { L ) *L=N2*LXX) 
]08 N 1 = L S U + 1 
N 2 = L XX + 1 
^6 r 0N T I MUR 
J S K I P = 1 

1 09 JT IM = k T tm 
MJK = ] 

NX = 1 
J = 1 
168 N = 1 
NS = 1 

110 K~JK 
M= 1 

111 IF ( M J < — < ) 112*1 13*112 



11? N c ATL = ” c ATL (NX ) 

D® 114 »NSATL 

JF L { N ) *DA c H 
N = N+1 

114 rPNTINUF 
NX =NX + 1 

IF (NS-NSUU) ) 115*116*115 

115 N5=NS+ 1 

JFL ( N ) =D0TS2 
N = N + 1 
G0T© 1 29 

116 N = N-1 

G0T© (117,118, 119 ,120*121, 122 *123, 124 ,12 5,1 26 ),J 

117 WRITF (3,127)JTIM, ( JEL( IN) ,IN=1,N> 

GPT® \?n 

118 WRITF (15#127)JTIMt(JEL( IN)*IN*1*N) 

G0T© 128 

119 WRITF (16,127) JTIM, (JELUN) ,IN=1,N> 

GPT © 128 

120 WRITE (21,127)JTIM.( JEL(IN) ,IN*1,N) 

G©T© 128 

121 WRITF (22,127)JTIM,( JEL( IN) ,IN=1,N) 

G0T© 128 

122 WRITE (7*127)JTIM, ( JFL(IN) »IN*ltN) 

GOT© 128 

123 WRITF (17tl27)JTIMf( JELUN) *IN=1*N) 

GOT© 128 

124 WRITE (18»127)JTIM,(JEL( IN) , I N= 1 , N ) 

GOT© 128 

125 WRITE (19tl27)JTIM*UEL( IN) tIN*l»N) 

GOT© 128 

126 WRITE (8»127)JTIM, ( JEL ( IN) » I N= 1 * N ) 

127 FORMAT (1H ,A4,3X,72A2) 

128 JxJ+1 
N = 1 
NS = 1 

1 2° ”JK=MJK+] 
m = i 

GOT'© Hi 

113 IF (NUMC< *M) — I ) 130*131*130 

130 JFL ( N ) -DA SH 

132 M*M+1 
N = N+ 1 
GOT® 113 

131 JFL ( N ) =KFL 

133 GOT© ( 134, 135 ) t JJ 2 

134 REAO ( 5*136)KDATE,KT I M , J K , I , K D A Y » K E L 
IF (FPP)GPT© 137 

GOT © 138 

175 READ <6*136)KOATE,KTIM,JK,I,KDAY,KFL 
IF (FprjGPTP 1 3 7 
GOT® 13P 

136 F PR v a T (3X,l6*lX*A4*lX,I3,lXtI' 5 ,lXtI 7 f2XfA2) 

137 F0F=*FALSF. 

IF ( JRF-RFFLS ) 139,140, 139 
139 JRF*JRF+] 

GOT® ( 141 ,142 ) , JJ2 
141 REWIND 8 
J J2 = 2 
GP y P 135 



14? RFwiNn ft 
JJ2= 1 
GST® 134 
140 JRF = I FND 

GST® ( 143.144) »JJ2 

143 RFWIND 5 
GOT® 143 

144 REWIND 6 
G©T® 145 

138 IF (JDATF-KDATF) 145.146.145 

146 IF ( JTIM-KTIM)14ft,147,145 

147 IF (K-jni4R.140.148 

140 IF (NUM(K.M)-I U32.133.15C 

150 POINT 151 

151 FSRMAT ( 1HC.36HST0PPING S®RT FRRSR SN INPUT TAPE) 

G©T® o 

148 IF ( M-MSATL (NX) ) 152.153.152 

152 M = M + 1 
N = N+ 1 

JFL ( N) =OA5H 
G®T ® 148 

153 NX=NX+1 

IF ( N.6-N8U ( J ) ) 1 54.155.154 

1 54 N=N+1 

N 8 = NO + 1 

JFL ( N ) =Dot5? 

156 N=N+1 
MJK*MJK+1 
G®T© 110 

155 G®T® ( 157, 158, 159, 160*161 *162. 163.164, 165.1661. J 

157 WRITF ( 3.1 27 ) JTIM. ( JFL ( IN) , IN=1 ,N) 

G5T® 167 

158 WRITF ( 15 , 127 ) JT IM , ( JEL ( IN) ,1M=1,N) 

G®T© 167 

159 WRITF ( 16.127) JTIM, (JFL( IN),IN=1,N) 

GST® 167 

160 WRITF (21 .127) JTIM, (JFL( IN),IN=1,N) 

GST® 167 

161 WRITE (22.127) JTIM. (JFL( IN) * I N = 1 • N ) 

G®T® 1 6 t 

162 WRITF (7,127) JTIM, (JFL( IN) ,IN = 1,N) 

GST® 167 

163 WRITF t 17, 127) JTIM. ( JEL( IN) » IN=1,N) 

GST© 167 

164 WRITE ( 18.127) JTIM. (JFL( IN) , IN=1,N) 

GST® 167 

165 WRITF (19,127)JTIM,( JFL( IN) »IN=] .N) 

GSTS 167 

166 WRITF (8,1 27) JTIM. < JFL( IN) , IN*1,N) 

167 J=J+1 
MJK=MJK+1 
GST® 168 

145 IF (M-MSATL(NX) >169.170,169 

169 M=M+1 
N = N+ 1 

JFL ( N ) *DASH 
GST® 145 

170 NX=NX+1 

IF (NS-NSU(J) ) 171 ,172*171 

171 N=N+1 
N8=N5+1 



JFL ( N) =nPTS2 
M=0 

GST® 169 

172 G®T© ( 173, 174,175,176. 177,178,179, 180, 181, 182) »J 

173 WRITE (3,127)JTIM»(JEL( IN) * I N = 1 * N ) 

GST® 183 

174 WRITE (15»127)JTIM»(JEL( IN)»IN=1»N) 

G©T® 183 

175 WRITE (16»127)JTIM»(JEL( IN) » I N= 1 »N ) 

G®T® 183 

176 WRITE (21,127) JTIM, (JFL( IN) ,IN=1,N) 

G®T® 183 

177 WRITE (22,127) JTIM, <JEL( IN) » IN=1 ,N) 

6®T® 183 

178 WRITE (7»127)JTIM.( JEL( IN) *IN=1.N) 

G®T® 183 

179 WRITF ( 17,127) JTIM, (JEL( IN) ,IN=1,N) 

GST® 183 

180 WRITF ( 18*127) JTIM, <JEL( IN) ,IN=1,N) 

G0T® 183 

181 WRITF ( 19*127) JTIM, ( JEL( IN) *IN=1.N) 

G®T® 187 

182 WRITE ( 8,1 27 ) JTIM, ( JEL( IN) » IN = 1 »N ) 

183 IF (J-JXX) 184,186,184 

184 J=J+1 
N = 0 
NS = 1 
M = 0 

GPT® 169 

185 IE ( JRE-IFND)186.187,186 

186 IF ( JOATE-KDATE) 188,189.188 

188 D® 192 J=1 , JXX 

GST® ( 193, 194, 195, 196, 197, 198, 199, 2 00, 201, 202), J 

193 WRITE (3,203) 

GST® 1«2 

194 WRITE (15,203) 

G®T® 192 

195 WRITE (16,203) 

G0T® 192 

196 WRITF (21,203) 

GST® 192 

197 WRITF (22,203) 

GST® 192 

198 WRITF (7,203) 

GST® 192 

199 WRITE (17,207) 

GST® 192 

200 WRITE (18,203) 

GST® 192 

201 WRITE (19,203) 

GST® 192 

202 WRITE (8,203) 

203 FSRMAT (1H ,3HENO) 

192 C0NTINUE 

GST® 85 

189 IF (J.8KIP-57) 190,191,190 

190 JEKIPrJSEIP+l 
G®7® 109 

187 D® 204 J=1 , JXX 

G®T® (205, 2C6, 207, 2 08. 209, 210, 211, 212, 213, 214), J 



206 WRITF ( 3 * 2 1 .5 1 JRE 
GOTS 204 

206 WRITF ( 15,215)JRE 
GSTS 204 

207 WRITF (16*216) JPE 
GSTS 204 

208 WRITF (21 ,215 ) JRE 
GSTS 2 04 

2 09 WP I T F (22*216) JRF 
GRIT 3 2 04 

210 WRITF ( 7 , 2 1 5 ) JRE 
GSTS 204 

211 WRITF (17,215)JPF 
GSTS 2 04 

212 WRITF (18,216) JRF 
GST © 204 

213 WRITE ( 19,215 ) JRF 
GSTS 204 

214 WRITE t ft ♦ 2 1 5 ) JRF 

215 FORMAT ( 1 H »3HFNn/lH ,46, 4H RIJN) 

2 04 rSNTlNUF 


OR F^QMAT 

(FORMAT MUST 

BF 

UPDATFD 

FOR 

FA CH 

RUN. SFF 

APPFNDI X 

B) 

99 format 
(F 0RMAT MUST 

BF 

UPDATED 

ESR 

FACH 

RUN. SFF 

APPFNDI X 

R) 

100 FORMAT 
(F0RMAT MUST 

BF 

UPDATED 

FSR 

FACH 

RUN. SFF 

APPFNDIX 

B) 

101 F^omaT 
( FORMAT MUST 

BF 

UP HA T FT) 

FSR 

fach 

RUN. SFF 

APPFNDI X 

B) 

10? F^OMAT 
(F0 RMAT must- 

BF 

IJPOATFO 

FSR 

FACH 

RUN. SFF 

APPFNDIX 

B) 

103 F0 ^mat 
(FORMAT MUST 

BF 

UPDATE!) 

FSR 

EACH 

RUN. SFE 

APPENDIX 

B) 

104 FORMAT 

(format must 

BF 

updated 

FSR 

FACH 

RUN. SFF 

APPFNDIX 

B) 

10* FORMAT 
(FORMAT MUST 

PF 

UPDATED 

FSR 

FACH 

RUN. SFF 

APPFNDIX 

R) 

106 F0^MAT 
(F0RMAT MUST 

BF 

UPDATED 

FSR 

FACH 

RUN. SFF 

APPFNDIX 

B) 

1 0 7 f^°MAT 
(F 6RMAT MUST 

BF 

UPDATED 

FSR 

FACH 

RUN. SFE 

APPFNDIX 

B) 


9 6TSP 
FND 

5TRMAP UN 1 5 

FNTRv .UNI 6 , 

. UN 1 6 . P 7 F UN I T 1 6 

UN I T 1 5 FILE , B ( 1 ) »RFADY , I N0UT » BLK = 22 * MULT IRE EL , BCD, HOLD *NSL 1ST 

FNO 



% I p v A o u N 1 6 

FNTRY • UNI 6 * 

• i 'N 1 6 • PZF UN I T 1 6 

UNI T 16 FILE * B ( 2 ) * READY * I NOUT » BLK = 22 .MULT i KEEL .BCD * HGLD .NfcL I ST 

FND 

$ I B M A P UN2 1 

FNTRY • UN2 1 • 

• UN2 1 • PZF UNIT21 

UNIT2 1 FILE *C( 1 ) * R EADY , I NGUT * BLK = 2 2 * MUL T I RE EL * BC D * H0LO » NGL I S T 
P NO 

St p YAP MN2 2 

FNTRY # UN2 2 • 

• ' IN 2? • P7F IJN I T 2 2 

UNIT22 FILE * C I 2 > * READY* I N@UT .BL< = 22 .MULT I REEL .BCD* HGLD » N©L I S T 
FND 

$ IB^AP UNO 7 

FNTRY * UNO? • 

.UNO?. P7F UN I T 07 

UNIT07 FILE *A( 3 ) * READY, INGUT*BLK=22 .MULT I REEL * BCD * HuLD ♦ NuL 1ST 

FND 

S I d. v A P UN 17 

FNTRY . UN 17* 

• UN! 7 • PZF UN I T 1 7 

UMT17 FILE » B ( 3 ) * READY, INGUT*BLK=22 .MULT I REEL . BCD . HGLD .NGL I ST 

r ND 

$ I RVAP UNia 

FNTPY . UN 18. 

.UN1F. °7.F IJNIT13 

UNI T18 FILE * B ( 4 ) * READY* INGUT *SLK = 22 * MULT I RE EL * BCD * HGLD * NGL I S T 

F NO 

$ I°UAP UNI 9 

FNTRY , UN 19. 

• UN 1 P . P7 F U N I T 1 Q 

UN I T 19 FILE * B ( 5 ) * READY* I NGUT , BLK =2 2 *MULT I REEL • BCD * HGLD , NGL I ST 
F N 0 

$IP‘MP UN 0 8 

ENTRY . UNO 8 • 

• !JN08 • PZF UN I T 08 

UN I T 0 8 FILE *A(4) . READ Y * I N0U T » BLK. = 22 * MUL T I REEL .BCD * HGLD * NGL I ST 

FND 

SIRLOR F p W B 

(PFLGCATARLP BINARY DECK F PR SUBROUTINE FRWB ) 

SIRLOR FR w O 

(RFl^CATABLF BINARY DECK FOR SUBROUTINE FRWD) 

SIRLOR F c . l I 

(RELGCATABLE binary deck FGR SUBROUTINE FSLI) 

$ I D LDP FXFV 

(RELGCATABLE BINARY DECK FGR SUBROUTINE FXEM ) 

SIRLOR NOSYS 

(RELGCATABLE BINARY DECK FGR SUBROUTINE N05Y3) 

$ I R L 0 R Ci® S y F 

( RFL0CAT ABLF BINARY DECK FGR SUBROUTINE GOSYS) 
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( FNO-OF-^ILF CARO) 
S F Y c Y S 

( FNP-®F-n LF CAPO) 



Appendix B 

Formulated Formats of Subprogram 3 
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F Q RMULATFD F0RVATS 0F SUBPROGRAM 3 

98OF0RMAT (1H1*7X»I6*2X»I3/1H , 4HT I ME * 3X ♦ A6 . ( 2*MSATL ( 1 )-4>X,A6» ( 2*MSA 
1TL ( 2 ) -A )X *A6 » » A6 * ( 2*MSATL< NSU ( 1 ) )~4 )X*A6/1H »3HH M,4X,72A2) 

99OF0RMAT <lHlt7X.I6>2X»I3/lH , 4HT I ME . 3X ♦ A6 . < 2*MSAT L t NSU ( 1 ) +1 )-4)X.A6 

1 ♦ ( 2*MSATL ( NSU t 1 ) +2 ) -A )X . A6 ♦ — *A6 * ( 2*MSATL ( NSU < 2 ) ) -4 ) X « A6 / 1H *3 

2HH M.4X72A2) 

1OOOF0RMAT (1H1»7X*I6»2X*I3/1H » 4HT IME*3X ,A6. ( 2*MSATL < NSU ( 2 )+l )-4 )X* A6 

l»(2*MSATL(NSU(2)+2> -4)X» A6» *A6 * ( 2 *MS ATL { NSU ( 3 ) ) “4 ) X . A6/ 1 H *3 

2HH M » 4X * 72 A2 ) 

101 OF0RMAT ( 1H1 i7X> 16 *2X» I3/1H ,4HTIMF,3X,A6, ( 2*MSATL ( NSU ( 3 ) +1 ) -4 ) X « A 6 

1 » ( 2*M$ATL ( NSU( 3 ) +2 )-4 ) X * A 6 * ♦ A6 ♦ ( 2 *MSATL ( NSU C 4 ) ) -4 ) X » A 6 / 1 H ♦ 3 

2HH M,4X»72A? ) 

1 02 OF0RMA T (1H1.7X.I6.2X.I3/1H ♦4HT I ME * 3X » A6 * t 2 »MSATL ( NSU ( 4 ) + 1 )-4 IX.A6 

1 ♦ { 2*MSATL ( NSU ( 4 )+2 ) -4 ) X ♦ A6 * »A6 » ( 2 *M S A T L ( NSU( 5 ) ) "4 ) X * A6 / 1 H «3 

2HH M,4X.7?A2) 

1O3OF0RMAT (1H1»7X*16»2X.13/1H » 4HT I MF . 3X ♦ A6 . ( 2 *MSAT L ( NSU ( 5 ) +1 ) ”4 ) X * A6 

1 . ( 2 *MS ATL I NSUt 5 ) +2 )-4 )X«A6 * ♦ A6» t 2 * v SAT L ( NSU t 6 ) )-4)X»A6/lH .3 

2HH v,z,x,7?A?) 

1 O4CF0RMAT ( 1 H 1 * 7 X » 1 6 » 2 X » 1 3/ 1H « 4HT I ME . 3X « A6 « ( 2 *M3AT L ( NSU ( 6 ) +1 > -4 ) X « A6 

1 » ( 2*MS ATL ( NSU ( 6 ) +2 ) -4 ) X » A6 * » A6 * ( 2*MSATL ( NSU ( 7 ) ) -4 ) X » A6 / 1H * 3 

2HH ^.4X»72A2 ) 

1O5OF0RMAT ( 1H1*7X*I6*2X»I3/1H »4HT I ME * 3X ♦ A6 » (2*V.SATL(NSU(7)+1 )-4)X»A6 

1 ♦ ( 2*MSATL ( NSU ( 7 )+2 ) -4 )X* A6 * * A6 * < 2 *MS ATL ( NSU ( 8 ) ) ~4 ) X « A6 / 1H * 3 

2HH M , AX ♦ 7?A2 ) 

1 O6OF0RMAT I1H1»7X*I6*2X#I3/1H ♦4HTIME»3X*A6*(2*MGATL(N3U(8>+1)-4)X*A6 

1 ♦ (2* MS ATL ( NSUt 8 )+2 )-4)X* A6» *A6* ( 2 *MS AT L t NSU ( 9 ) ) “4 ) X • A6/ 1H *3 

PH H m,4X,7?A2) 

1 07OF0RMAT (1H1*7X»I6»2X*13/1H ,4HTIMF*3X»A&,(2*MSATL(NSU(9)+1)-4)X»A6 

1 . ( 2*MSATL (NSUt 9 )+2 )~4) X»A6 « *A6,( 2 *MS A T L ( NSU ( 1 0 ) ) -4 ) X * A6 / 1 H * 

23HH M *4X*72A?) 
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